home *** CD-ROM | disk | FTP | other *** search
/ Cine Live 70 / Cine Live 70.iso / pc / Scripts / Compatibility.k < prev    next >
Encoding:
Text File  |  2002-10-04  |  669 b   |  36 lines
  1. module oCompatibility is cPlugin
  2. end;
  3.  
  4. class cProject
  5. is
  6.     release Editor:
  7.         EditShell!cProject;
  8.     end;
  9.     release Runtime:
  10.         RunShell!cProject;
  11.     end;
  12. has
  13.     OffscreenDepth;
  14.     OnscreenDepth;
  15.     
  16.     Initialize(...)
  17.         do
  18.             if self.OnscreenDepth = 16 then
  19.                 self.Depth := 16;
  20.             else if self.OnscreenDepth = 32 then
  21.                 self.Depth := 32;
  22.             end;
  23.             if self.OnscreenFlag = false then
  24.                 self.OnscreenFlag := -1;
  25.             else if self.OnscreenFlag = true then
  26.                 self.OnscreenFlag := 0;
  27.             end;
  28.             release Editor:
  29.                 self.EditShell!cProject:Initialize(...);
  30.             end;
  31.             release Runtime:
  32.                 self.RunShell!cProject:Initialize(...);
  33.             end;
  34.         end;
  35. end;
  36.